home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 001a / ezzcomm.zip / FPCPOST.T < prev    next >
Text File  |  1991-02-16  |  1KB  |  42 lines
  1.  if !c return
  2.  : EZ-ZCOMM Copyright 1991 by Roger E. Hough, All Rights Reserved.
  3.  : Licensed for use at your own risk without fee. Altered versions,
  4.  : when distributed, must be clearly marked as altered and accompanied
  5.  : by the originals.
  6.  :
  7.  : Post a Forum-PC Bulletin using the NON-FULLSCREEN editor
  8.  : 1st line: Area,Title
  9.  display inhibit;open -!g %item;display noinhibit
  10.  setc z9 \032;if !t goto mailinvd
  11.  grab z1;if !%z1||Iz9,z1||!t goto mailinvd
  12.  split z1 , "";if !%z1 goto mailinvd
  13.  setc z9 \032;grab z3;if Iz9,z3||!t goto mailinvd
  14.  pat;mput *%z0\r
  15.  pat 0c "No such board"
  16.  pat 1i "Bulletin menu [?=help]:"
  17.  wait -f30;if n bye;return
  18.  if 0 goto mailinvd
  19.  pat;mput p\r
  20.  pat 0i "Title:"
  21.  wait -f30;if n bye;return
  22.  pat;mput \T%z1;mput \r
  23.  pat 0c "Anonymous? " n\r
  24.  pat 1i "commands\r\n\r\n"
  25.  wait -f30;if n bye;return
  26. mailnext:
  27.  pat;if %z3 mput \T%z3;mput \r
  28.  else mput " \r"
  29.  pat 0i \n;wait -f10;if n bye;return
  30.  grab z3;if t ife !Iz9,z3 goback mailnext;closetx
  31.  pat;mput "/s\r"
  32.  pat 0c "Confirm [y/n]:" y\r
  33.  pat 1i "Bulletin menu [?=help]:"
  34.  wait -f30;if n bye;return
  35.  del %item
  36.  return
  37. mailinvd:
  38.  echoc "Improper File - %item"
  39.  if t nolog closetx
  40.  del %item
  41.  return
  42.